home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / wb / DirScanner.lha / DirScanner / Rexx / Jump2Marked.dsrx < prev    next >
Encoding:
Text File  |  2000-05-31  |  545 b   |  30 lines
  1. /*
  2.    $VER:Jump2Marked.dsrx 1.0 (30.5.00) Copyright (c) Nils Görs
  3.  
  4.    bind this script as follows:
  5.    Title: Jump2Next sel                     Title: Jump2prev sel
  6.     Path: Jump2Marked.dsrx                   Path: Rexx/Jump2Marked.dsrx PREV
  7. */
  8.  
  9. options results
  10. PARSE ARG args
  11.  
  12. DSPort = SUBWORD(args,WORDS(args))
  13.  
  14. IF WORDS(args) > 1 THEN DO
  15.     direction = WORD(args,1)
  16.     direction = UPPER(direction)
  17. END
  18.  
  19. address value DSPort
  20.  
  21. SET LOCKGUI 1
  22.  
  23.  
  24. IF direction = "PREV" THEN direction = PREVSEL
  25.         ELSE direction = NEXTSEL
  26.  
  27. GOTO direction
  28.  
  29. SET LOCKGUI 0
  30.